#!/usr/bin/perl

#check the running OS version: Unix-like, or Windows
print $^O;

#get current working directory
my $cwd = ".";
if ( $^O =~ /MSWin32/ )
{
	$cwd = `cd`;
}
else
{
	$cwd = `pwd`;
}
print "\n$cwd \n";

#create directory
my $outputD = "aaa";
mkdir $outputD, 0755 or warn "can't create dir ($outputD): $!" ;


#change letters to lower cases
my $str = "\nTHis a BIg.\n";
print lc $str;

#Result:
#MSWin32
#this a big.
